home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG12A.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  768b  |  40 lines
  1. PROGRAM PROG12A;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Writing your own function
  5.  
  6. }
  7.  
  8. VAR
  9.   No : Integer;
  10.  
  11. FUNCTION Has_Valid_Cube(Number:Integer) : Boolean;
  12.  
  13. BEGIN
  14.   If (Number < -32) OR (Number > 31)
  15.     THEN
  16.       Has_Valid_Cube := False
  17.     ELSE
  18.       Has_Valid_Cube := True;
  19. END;
  20.  
  21. FUNCTION Cube(Number:Integer) : Integer;
  22.  
  23. BEGIN
  24.   Cube := Number * Number * Number;
  25. END;
  26.  
  27.  
  28. BEGIN
  29.   Write('Enter a number: ');
  30.   ReadLn(No);
  31.   If Has_Valid_Cube (No)
  32.     THEN
  33.       WriteLn('The cube is: ', Cube(No) )
  34.     ELSE
  35.       BEGIN
  36.         WriteLn('The cube of ',No,' is outside the integer range');
  37.         WriteLn('in this version of Pascal.');
  38.       END;
  39. END.
  40.